#!/usr/bin/perl

# Иванов Илья
# 24.11.2013

# ЗАДАНИЕ:
# Создать шаблон для поиска URL-строки, соответствующей Web-ресурсу в Интернете.

# РЕШЕНИЕ:
# Выделяет в тексте искомую строку скобками [].
# Хост предполагается в формате www.google.com
# Не рассматривается вариант передачи параметров в последнем компоненте URL.

while ($line = <>) {
	$line =~ s/(https?:\/\/[\w-]+(\.[\w-]+)+(:\d{1,5})?(\/[\w-\.]*)*)/[$1]/g;
	print $line;
}
